home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / T1600.T < prev    next >
Text File  |  1993-04-08  |  3KB  |  76 lines
  1.     :: Dialer for Telebit T1600
  2. dialnum
  3.     if S>3000 if !%s1 set s1 "lock"
  4.     gosub waketb        :: get modem to respond
  5.     pat; pat 9 OK
  6.     put "AT"
  7.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  8.     if is5,300 put "S50=1 "
  9.     if is5,1200 put "S50=2 "
  10.     if is5,2400 put "S50=3 "
  11.     if js2,a_mnp put "S180=3 S181=0 "
  12.     else if js2,mnp put "S180=3 S181=2"
  13.     if %s1 put " S58=2 " if S==19200 put "S51=5 "
  14.     if js2,_s put "S58=3 "
  15.     put "X2 S59=15 S68=255 S111=0 "
  16.     if js2,xmodem put "S111=20 "
  17.     if js2,kermit put "S111=10 "
  18.     if js2,uucp put "S111=30 "
  19.     if "%s3>8" put "S7=70"        : longer wait if long distance
  20.     put "Q0S10=10V1\r"; wait -f2
  21.     :: put "ATS6=3S8=1S0=0\r" wait -f2
  22.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  23.     if %alds if ps3,0 putw "ATS8=10\r"
  24.     put "%mprefix";  put "%s3%alds";  dis -Q
  25.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  26.     put "\r";  dis -t
  27.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  28.     pat 1 "CONNECT\r"; pat 2 "NO CARRIER"; pat 3 "BUSY"; pat 4 RING;
  29.     pat 5l "ECT 12"; pat 6l "ECT 24"; pat 7l "CONNECT FAST"
  30.     pat 8 "NO DIALTONE"; pat 10l "CONNECT 300"
  31.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  32.     pat 13 "VOICE"; pat 14 "NO ANS"; pat 15l "CONNECT 4800"
  33.     pat 16l "ECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  34.     wait -f72
  35.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  36.     if "n||8||9||2||3||4||13||14" goto sorry
  37.     dis -d
  38.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  39.     if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  40.     if "hCARRIER" ss y "[0-9]+";  estimate 0 z0
  41.     if !%s1 goto ns1
  42.     if !Js1,s handshake slow; lput "Handshake SLOW: "
  43.     echo "Speed Locked"; goto mm2end
  44. ns1:    if "h/REL" echo "MNP Connected";  handshake both; goto mm2end
  45.     if "h/LAPM" echo "MNP Connected";  handshake both; goto mm2end
  46.     if js2,mnp set s2 ""
  47. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  48.     if "1||10" sp 300 goto mm2end
  49.     if 5 sp 1200 goto mm2end
  50.     if 6 sp 2400 goto mm2end
  51.     if "du&&7" sp 9600 echo "9600 bps"; goto mm2end
  52.     if "7||12" sp 19200; goto mm2end
  53.     if 11 sp 9600; goto mm2end
  54. sorry:    echo "No Connect Message Detected."
  55.     : sleep 10; pat; pat 1 OK; putw "ATN?\r" wait
  56.     return
  57. mm2end:    set s9 "y"
  58.         if js1,mnp sleep 15    : for gliches in MM224E
  59.     return
  60.  
  61.  
  62.     : initializes the T1600 NVRAM for these scripts
  63.     : It may be necessary to change the 9600 speed below if the
  64.     : NVRAM has been set to a strange value by somebody else
  65. initmodem    sp 19200; ena -t; gosub waketb
  66.     ena -t
  67.     putw "AAAT&F\r"
  68.     putw "A\336A\336A\336AT\r"
  69.     putw "ATS0=0 S7=45 S50=0 S58=3 S68=3\r\336\336"
  70.     putw "AT&D3 &C1 S111=255 S180=2\r\336\336"
  71.     putw "ATS51=254&W0\r\336\336"        :: set 19200 bps default
  72.     putw "AT&V\r"
  73.     return
  74.  
  75.  
  76.